www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminconfig\D_admin_config_qiye.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
Server.ScriptTimeout = 99999
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=../../inc/ND_class_function.asp-->
<%
AJAXshowLoader()
if qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
%>
<style type="text/css">
<!--
.STYLE3 {
color: #FFFFFF;
font-weight: bold;
}
.STYLE4 {color: #FFFFFF}
-->
</style>
<div id="divProcessing" style="width:200px;height:30px;position:absolute;display:none">
<table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" width="100%" height="100%"><tr><td bgcolor=#0650D2><marquee align="middle" behavior="alternate" scrollamount="5" style="font-size:9pt"><font color=#FFFFFF>...正在保存远程图片...请等待...</font></marquee></td></tr></table>
</div>
<br />
<div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px">
<%
biao2="[ND_sys]"
sys_content_type=trim(request("sys_content_type"))
set rs22=server.CreateObject("adodb.recordset")
rs22.open "select top 1 * from "&biao2&" where type='config_settings'",conn,1,3
if rs22.eof then
rs22.addnew
if session(nd_admin_cach_varb_name)="" then
if request.cookies(nd_admin_cach_varb_name)="" then
uuuaa=""
else
uuuaa=request.cookies(nd_admin_cach_varb_name)
end if
else
uuuaa=session(nd_admin_cach_varb_name)
end if
rs22("type")="config_settings"
rs22("data")="1|www.aspcpu.com|xx|xx|xx|xx|1|0|testsina126321@126.com|smtp.126.com|testsina126321|121a232|1|1|0|1|0|55|妈妈的,我靠,fuck,bitch,他妈的,性爱,法轮,falundafa,falun,江泽民,snk.ni8.net,操你妈,三级片,日你妈,我操|新动软#万能网站$ms$ndsoft1314$http://www.aspcpu.comqq@xndsoft1314@xxx@微软11$ms$ndsoft1314$http://www.microsoft.com@xndsoft1314@xxx@|妈妈的,我靠,fuck,bitch,他妈的,性爱,法轮,falundafa,falun,江泽民,snk.ni8.net,操你妈,三级片,日你妈,我操,admin,新动软,微阮,administrator,管理员,newdsoft|11"
' 0| www.aspcpu.com |新动软万能网站管理系统 |net3m33 |新动软万能网站内容管理cms系统,万能网站系统 | 网站底部 | 1 | jmail | testsina126321@126.com |smtp.126.com |testsina126321 | 121a232 | 1 | 1 | 0 |1 | 0 | 50 |guolv_words | replace_words_to_links |1|11
'水印开启? 水印文字 webname 管理员email keywords buttom 是否关闭link_reg 发送邮件的组件 系统管理员Email SMTP 邮件服务器地址 user pwd 是否允许新用户注册 注册会员是否要管理员认证 注册会员是否Email通知密码 一个Email只能注册一个会员 发送注册邮件信息 注册会员后系统送的的点数
' 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
rs22.update
end if
rs22.close
set rs22=nothing
set rs22=server.CreateObject("adodb.recordset")
rs22.open "select top 1 * from "&biao2&" where type='config_settings'",conn,1,1
ddd1=rs22("data")
dddd12=split(ddd1,"|")
'是否开启图片水印,0=不开启，1=开启
shuiyin_on=cstr(dddd12(0))
'图片水印文字
shuiyin_cont=cstr(dddd12(1))
'网站名称
'webnamea=cstr(dddd12(2))
'str2=cstr(dddd12(3))
'str3=cstr(dddd12(4))
'str4=cstr(dddd12(5))
str5=cstr(dddd12(6))
str6=cstr(dddd12(7))
str7=cstr(dddd12(8))
str8=cstr(dddd12(9))
str9=cstr(dddd12(10))
str10=cstr(dddd12(11))
str11=cstr(dddd12(12))
str12=cstr(dddd12(13))
str13=cstr(dddd12(14))
str14=cstr(dddd12(15))
str15=cstr(dddd12(16))
str16=cstr(dddd12(17))
str17=cstr(dddd12(18))
str18=cstr(dddd12(19))
unreg=cstr(dddd12(20))
law=cstr(dddd12(21))
set rs22d=server.CreateObject("adodb.recordset")
rs22d.open "select top 1 * from "&biao2&" where type='webname_settings_qiye'",conn,1,1
ddd1d=rs22d("data")
dddd12d=split(ddd1d,"|")
webnamea=cstr(dddd12d(0))
str2=cstr(dddd12d(1))
str3=cstr(dddd12d(2))
str4=cstr(dddd12d(3))
hhhta=cstr(dddd12d(4))
hhhtax=cstr(dddd12d(5))
if request("do")="1" then
set rs22d1=server.CreateObject("adodb.recordset")
rs22d1.open "select top 1 * from "&biao2&" where type='webname_settings_qiye'",conn,1,3
ssss=replace(request("webname"),"|","")&"|"&replace(request("str2"),"|","")&"|"&replace(request("str3"),"|","")&"|"&replace(request("str4"),"|","")&"|"&replace(request("hhht"),"|","")&"|"&replace(request("hhhtx"),"|","")
rs22d1("data")=ssss
rs22d1.update
set rs221=server.CreateObject("adodb.recordset")
rs221.open "select top 1 * from "&biao2&" where type='config_settings'",conn,1,3
st17=replace(replace(request("str17"),"|",""),"，",",")
TempKeywordStr = Request.Form("KStr")
TempKeywordStr=replace(TempKeywordStr,"#","#")
TempKeywordUrl = Request.Form("KUrl")
TempKeywordStr = Split(TempKeywordStr, ",")
TempKeywordUrl = Split(TempKeywordUrl, ",")
For i = 0 To UBound(TempKeywordStr)
If Trim(TempKeywordStr(i)) = "" Or Trim(TempKeywordUrl(i)) = "" or Trim(TempKeywordStr(i)) ="请输入新内容关键字" or Trim(TempKeywordUrl(i)) = "请输入新关键字连接URL" Then
else
If LCase(Trim(TempKeywordStr(i))) <> "delete" And LCase(Trim(TempKeywordUrl(i))) <> "delete" Then
ContentKeyword = ContentKeyword & Trim(TempKeywordStr(i)) & "$ms$ndsoft1314$" & Trim(TempKeywordUrl(i)) & "@xndsoft1314@xxx@"
End If
End If
Next
st18=replace(ContentKeyword,"|","")
ssss=request("ssso")&"|"&replace(request("nme"),"|","")&"|"&"xx"&"|"&"xx"&"|"&"xx"&"|"&"xx"&"|"&replace(request("str5"),"|","")&"|"&replace(request("str6"),"|","")&"|"&replace(request("str7"),"|","")&"|"&replace(request("str8"),"|","")&"|"&replace(request("str9"),"|","")&"|"&replace(request("str10"),"|","")&"|"&replace(request("str11"),"|","")&"|"&replace(request("str12"),"|","")&"|"&replace(request("str13"),"|","")&"|"&replace(request("str14"),"|","")&"|"&replace(request("str15"),"|","")&"|"&replace(request("str16"),"|","")&"|"&st17&"|"&st18&"|"&replace(request("unreg"),"|","")&"|"&replace(request("law"),"|","")
rs221("data")=ssss
rs221.update
%>
<script language="javascript">
alert("修改成功");
<%if request("hhht")="1" and request("yuan_htm")="0" then%>
alert("你开启了生成htm功能，所以要生成整站全部的htm页一遍, 否则htm页会打不开,点击确定进入生成htm的操作");
self.location="../adminHTML/D_goto_make_all_htm.asp?isqiye=1";
<%else%>
self.location="D_admin_config_qiye.asp";
<%end if%>
</script>
<%
end if
%>
<script src="../../ND_editor/FCKeditor2_5/FCKeditor.js"></script>
<script type="text/javascript">
<!--
function remoteUpload(o) {
try{
var strText = GetContentHTML() ;
var divProcessing=document.getElementById("divProcessing");
var objField = document.getElementsByName("content_UploadText")[0];
objField.value = strText ;
if (o) {
divProcessing.style.top = 500 ;
divProcessing.style.left = 200 ;
divProcessing.style.display = "";
document.remoteuploadb.submit();
}else{
divProcessing.style.display = "none";
}
}
catch(e){}
}
function remoteUploadok() {
try{
divProcessing.style.display = "none";
}
catch(e){}
}
function GetContentHTML(){
var strHTML ;
try{
var oEditor = FCKeditorAPI.GetInstance('Content') ;
strHTML = oEditor.GetXHTML()
}
catch(e){
strHTML = '';
}
return strHTML
}
var sLinkOriginalFileName = "originalfilename" ;
var sLinkSaveFileName = "savefilename" ;
var sLinkSavePathFileName = "UploadFileList" ;
function addUploadFile(originalFileName, saveFileName, savePathFileName){
doInterfaceUpload(sLinkOriginalFileName, originalFileName);
doInterfaceUpload(sLinkSaveFileName, saveFileName);
doInterfaceUpload(sLinkSavePathFileName, savePathFileName);
}
function doInterfaceUpload(strLinkName, strValue){
if (strValue=="") return;
if (strLinkName){
var objLinkUpload = document.getElementsByName(strLinkName)[0];
if (objLinkUpload){
if (objLinkUpload.value!=""){
objLinkUpload.value = objLinkUpload.value + "|";
}
objLinkUpload.value = objLinkUpload.value + strValue;
objLinkUpload.fireEvent("onchange");
}
}
}
function doChange(objText, objDrop){
if (!objDrop) return;
//if(document.myform.BriefTopic.selectedIndex<2){
// document.myform.BriefTopic.selectedIndex+=1;
//}
var str = objText.value;
var arr = str.split("|");
var nIndex = objDrop.selectedIndex;
objDrop.length=1;
for (var i=0; i<arr.length; i++){
objDrop.options[objDrop.length] = new Option(arr[i], arr[i]);
}
objDrop.selectedIndex = nIndex;
}
//-->
</script>
<script language= JavaScript>
function SelectPic(){
var arr=window.open('../D_select_upload_pic.asp', '', 'titlebar=no, toolbar=no, scrollbar=yes,Width=800, Height=600');
if(arr!=null){
//var ss=arr.split('|');
//document.all.myform.ImageUrl.value=ss[0];
//document.myform.ImageFileList.value=ss[0];
}
else
{
alert("弹出窗口被系统拦截掉了,请修改你系统设置")
}
}
</script>
<form action="D_admin_config_qiye.asp?do=1" method="post" target="_self" name="myform" id="myform">
<table height="30" width=730 border="0" cellpadding="2" cellspacing="0" bordercolor="#999999" style="border:#999999 1px">
<tr>
<td>
<table height="365" width=730 border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td height="19" align="center" bgcolor="#0460B3" colspan="4"><span class="STYLE3">系统设置 </span></td>
</tr>
<tr>
<td width="251" height="32" align="left" bgcolor="#ffffff"><b>网站名称：</b></td>
<td width="473" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<input type="text" value="<%=webnamea%>" size=50 name="webname"/></td>
</tr>
<tr>
<td width="251" height="22" align="left" bgcolor="#ffffff"><b>管理员Email：</b></td>
<td width="473" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<input type="text" value="<%=str2%>" size=50 name="str2"/></td>
</tr>
<tr>
<td width="251" height="93" align="left" bgcolor="#ffffff"><b>站点关键字：<br />
将被搜索引擎用来搜索您网站的关键内容：</b></td>
<td width="473" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<textarea name="str3" cols="50" rows="6"><%=str3%></textarea></td>
</tr>
<tr>
<td width="251" height="131" align="left" bgcolor="#ffffff"><b>网站底部版权信息(支持html代码)：</b></td>
<td width="473" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<textarea name="str4" cols="50" rows="9"><%=str4%></textarea></td>
</tr>
<tr>
<td width="251" height="33" align="left" bgcolor="#ffffff"><b>是否启用 全站生成HTML静态 功能：</b></td>
<td width="473" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<input type="radio" value="1" onclick="show1(1)" name="hhht" <%if cstr(hhhta)="1" then response.write "checked"%> >启用
<input type="radio" value="0" onclick="show1(0)" name="hhht" <%if cstr(hhhta)="0" then response.write "checked"%> >禁用
<input type="hidden" name="yuan_htm" value="<%=hhhta%>" />
</td>
</tr>
<tr style="display:none" id="hxxx">
<td width="251" height="33" align="left" bgcolor="#ffffff"><b>生成HTML静态时静态页的 扩展名：</b></td>
<td width="473" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<input type="radio" value=".htm" name="hhhtx" <%if cstr(hhhtax)=".htm" or hhhtax&""="" then response.write "checked"%> >.htm
<input type="radio" value=".html" name="hhhtx" <%if cstr(hhhtax)=".html" then response.write "checked"%> >.html
<input type="radio" value=".shtml" name="hhhtx" <%if cstr(hhhtax)=".shtml" then response.write "checked"%> >.shtml
</td>
</tr>
<script language="javascript">
sss=document.getElementById("hxxx");
<%if cstr(hhhta)="1" then response.write "sss.style.display='';"%>
</script>
<script language="javascript">
function show1(yn){
ss=yn;
if (ss=="1"){
document.getElementById("hxxx").style.display='';
}
else
{
document.getElementById("hxxx").style.display='none';
}
}
</script>
<tr>
<td width="251" height="33" align="left" bgcolor="#ffffff"><b>是否开启图片水印：</b></td>
<td width="473" colspan="3" align="left" valign="top" bgcolor="#F5F5F5">
<%
on error resume next
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If -2147221005=Err then
%>
<input type="hidden" name="ssso" value="0" />
<input type="radio" name="s11sso" value="0" checked disabled="disabled"> 否(因为不支持aspjpeg组件)
<input type="radio" name="s11sso" value="1" disabled="disabled"> 是
<%
else
%>
<input type="radio" name="ssso" value="0" <%if shuiyin_on="0" then response.write "checked"%>> 否
<input type="radio" name="ssso" value="1" <%if shuiyin_on="1" then response.write "checked"%>> 是
<%end if%>
</td></tr>
<tr>
<td width="251" height="33" align="left" bgcolor="#ffffff"><b>图片水印文字：</b></td>
<td width="473" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<input type="text" size=50 value="<%=shuiyin_cont%>" name="nme"/></td>
</tr>
<tr>
<td width="251" height="33" align="left" bgcolor="#ffffff"><b>是否关闭友情连接申请：</b></td>
<td width="473" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<input type="radio" value="0" name="str5" <%if cstr(str5)="0" then response.write "checked"%> >关闭
<input type="radio" value="1" name="str5" <%if cstr(str5)="1" then response.write "checked"%> >打开</td>
</tr>
</table>
<table height="194" width=730 border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td height="14" align="center" bgcolor="#0460B3" colspan="4"><span class="STYLE3">系统邮件功能设置</span></td>
</tr>
<%
Function ishaveobj(ByVal strClassString)
Dim xTestObj,ClsString
On Error Resume Next
ishaveobj = False
ClsString = strClassString
Err = 0
Set xTestObj = Server.CreateObject(ClsString)
If Err = 0 Then ishaveobj = True
If Err = -2147352567 Then ishaveobj = True
Set xTestObj = Nothing
Err = 0
Exit Function
End Function
Dim InstalledObjects(10)
Dim i
Response.Write "<div id=""Issubport0"" style=""display:none"">请选择EMAIL组件！</div>" & vbCrLf
Response.Write "<div id=""Issubport999"" style=""display:none"">请选择上传组件！</div>" & vbCrLf
InstalledObjects(1) = "JMail.Message" 'JMail 4.3
InstalledObjects(2) = "CDONTS.NewMail" 'CDONTS
InstalledObjects(3) = "Persits.MailSender" 'ASPEMAIL
'-----------------------
InstalledObjects(4) = "Adodb.Stream" 'Adodb.Stream
InstalledObjects(5) = "Persits.Upload" 'Aspupload3.0
InstalledObjects(6) = "SoftArtisans.FileUp" 'SA-FileUp 4.0
InstalledObjects(7) = "DvFile.Upload" 'DvFile-Up V1.0
'-----------------------
InstalledObjects(8) = "CreatePreviewImage.cGvbox" 'CreatePreviewImage
InstalledObjects(9) = "Persits.Jpeg" 'AspJpeg
InstalledObjects(10) = "SoftArtisans.ImageGen" 'SoftArtisans ImgWriter V1.21
For i = 1 To 10
Response.Write "<div id=""Issubport" & i & """ style=""display:none"">"
If Not ishaveobj(InstalledObjects(i)) Then
Response.Write "<b>×</b>服务器不支持!"
Else
Response.Write "<font color=red><b>√</b>服务器支持!</font>"
End If
Response.Write "</div>"
Next
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function chkselect(s,divid)
{
var divname='Issubport';
var chkreport;
s=Number(s)
if (divid=="n1")
{
divname=divname+s;
}
if (divid=="n2")
{
s+=4;
if (s==1003){s=999;}
divname=divname+s;
}
if (divid=="n3")
{
s+=8;
if (s==1007){s=999;}
divname=divname+s;
}
document.getElementById(divid).innerHTML=divname;
chkreport=document.getElementById(divname).innerHTML;
document.getElementById(divid).innerHTML=chkreport;
}
//-->
</SCRIPT>
<tr>
<td width="249" height="22" align="left" bgcolor="#ffffff"><b>发送邮件的组件：</b></td>
<td width="475" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<select size="1" name="str6" onChange="chkselect(options[selectedIndex].value,'n1');">
<%
sysselect=0
if CInt(str6) = 1 and ishaveobj(InstalledObjects(1))<>true then sysselect=1
if CInt(str6) = 2 and ishaveobj(InstalledObjects(2))<>true then sysselect=1
if CInt(str6) = 3 and ishaveobj(InstalledObjects(3))<>true then sysselect=1
hmml=0
if ishaveobj(InstalledObjects(1))=true then
hmml=1
%>
<option value="1"<%If CInt(str6) = 1 or sysselect=1 Then Response.Write (" selected")%>>JMAIL</option>
<%
if sysselect=1 then sysselect=0
end if%>
<%if ishaveobj(InstalledObjects(2))=true then
hmml=1
%>
<option value="2"<%If CInt(str6) = 2 or sysselect=1 Then Response.Write (" selected")%>>CDONTS</option>
<%
if sysselect=1 then sysselect=0
end if%>
<%if ishaveobj(InstalledObjects(3))=true then
hmml=1
%>
<option value="3"<%If CInt(str6) = 3 or sysselect=1 Then Response.Write (" selected")%>>ASPEMAIL</option>
<%
if sysselect=1 then sysselect=0
end if%>
<%if hmml=0 then%>
<option value="0" selected>服务器不支持</option>
<%end if%>
</select><div id=n1></div>
</td>
</tr>
<tr>
<td width="249" height="22" align="left" bgcolor="#ffffff"><b>系统管理员Email：<br />
给用户发送邮件时，所用的Email(还用于自动接收产品订购等信息)
</b></td>
<td width="475" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<input type="text" value="<%=str7%>" size=50 name="str7"/></td>
</tr>
<tr>
<td width="249" height="22" align="left" bgcolor="#ffffff"><b>SMTP 邮件服务器地址：</b></td>
<td width="475" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<input type="text" value="<%=str8%>" size=50 name="str8"/></td>
</tr>
<tr>
<td width="249" height="16" align="left" bgcolor="#ffffff"><b>邮件登录用户名：</b></td>
<td width="475" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<input type="text" size=50 value="<%=str9%>" name="str9"/></td>
</tr>
<tr>
<td width="249" height="16" align="left" bgcolor="#ffffff"><b>邮件登录密码：</b></td>
<td width="475" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<input type="password" size=50 value="<%=str10%>" name="str10"/></td>
</tr>
</table>
<table height="527" width="730" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td height="20" align="center" bgcolor="#0460B3" colspan="4"><span class="STYLE3">注册用户设置 </span></td>
</tr>
<tr>
<td width="250" height="33" align="left" bgcolor="#ffffff"><b>是否允许新用户注册：</b></td>
<td width="474" colspan="3" align="left" valign="top" bgcolor="#F5F5F5">
<input type="radio" name="str11" value="0" <%if cstr(str11)="0" then response.write "checked"%> >
否
<input type="radio" name="str11" value="1" <%if cstr(str11)="1" then response.write "checked"%> >
是 </td>
</tr>
<tr>
<td width="250" height="33" align="left" bgcolor="#ffffff"><b>注册会员是否要管理员认证：</b></td>
<td width="474" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<input type="radio" name="str12" value="0" <%if cstr(str12)="0" then response.write "checked"%>>
否
<input type="radio" name="str12" value="1" <%if cstr(str12)="1" then response.write "checked"%>>
是
</td>
</tr>
<tr>
<td width="250" height="33" align="left" bgcolor="#ffffff"><b>注册会员是否Email通知密码：<br />
确认您的站点支持发送mail，所包含密码为系统随机生成</b></td>
<td width="474" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<input type="radio" name="str13" value="0" <%if cstr(str13)="0" then response.write "checked"%>>
否
<input type="radio" name="str13" value="1" <%if cstr(str13)="1" then response.write "checked"%>>
是
</td>
</tr>
<tr>
<td width="250" height="33" align="left" bgcolor="#ffffff"><b>一个Email只能注册一个会员：</b></td>
<td width="474" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<input type="radio" name="str14" value="0" <%if cstr(str14)="0" then response.write "checked"%>>
否
<input type="radio" name="str14" value="1" <%if cstr(str14)="1" then response.write "checked"%>>
是 </td>
</tr>
<tr>
<td width="250" height="33" align="left" bgcolor="#ffffff"><b>发送注册邮件信息：<br />
请确认您打开了邮件功能</b></td>
<td width="474" colspan="3" align="left" valign="top" bgcolor="#F5F5F5">
<input type="radio" name="str15" value="0" <%if cstr(str15)="0" then response.write "checked"%>>
否
<input type="radio" name="str15" value="1" <%if cstr(str15)="1" then response.write "checked"%>>
是
</td>
</tr>
<tr>
<td width="250" height="33" align="left" bgcolor="#ffffff"><b>注册会员后系统送的的点数：<br />
请输入整数</b></td>
<td width="474" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<input type="text" size="50" value="<%=str16%>" name="str16"/></td>
</tr>
<tr>
<td width="250" height="302" align="left" bgcolor="#ffffff"><b>修改注册条款：
</b></td>
<td width="474" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<textarea name="law" cols="50" rows="22"><%=law%></textarea>
</tr>
</table>
<table height="365" width="730" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td height="20" align="center" bgcolor="#0460B3" colspan="4"><span class="STYLE3">过滤字符设置</span></td>
</tr>
<tr>
<td width="250" height="169" align="left" bgcolor="#ffffff"><b>评论过滤字符：<br>
请用 ,号 分开 <br />
</b></td>
<td width="474" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<textarea name="str17" cols="50" rows="12"><%=str17%></textarea>
</tr>
<tr>
<td width="250" height="174" align="left" bgcolor="#ffffff"><b>禁止注册的用户名：<br>
请用 ,号 分开 <br />
</b></td>
<td width="474" colspan="3" align="left" valign="middle" bgcolor="#F5F5F5">
<textarea name="unreg" cols="50" rows="12"><%=unreg%></textarea>
</tr>
</table>
<table height="194" width="730" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td height="20" align="center" bgcolor="#0460B3" colspan="4"><span class="STYLE3">文章内容关键字 自动加链接 设置</span></td>
</tr>
<%
%>
<tr>
<td height="66" colspan="2" class="tablerow1"><strong>说明:</strong><br>
本功能用于在文章中找到适当的关键字, 并为其设置对应的链接.
如: 设置了关键字 新动软网站, 指向地址 http://www.aspcpu.com 那么当文章中出现" 新动软网站"这些字时, 页面上能自动为这些字加上指向http://www.aspcpu.com这个地址的链接. 注意: 不能设置重复的关键字, 也不能设置包含相同文字的关键字,如果想清除该关键字，请在对应的文本框中输入"delete"，
如果要设置多个关键字用一个连接请用 #号 分开。</td>
</tr>
<tr>
<td align="center" bgcolor="#4DA0FD" class="STYLE4 TableTitle"><strong>内容关键字(多个关键字用一个连接请用 #号 分开多个关键字)</strong></td>
<td align="center" bgcolor="#4DA0FD" class="STYLE4 TableTitle"><strong>关键字连接URL</strong></td>
</tr>
<%
If Trim(str18) <> "" Then
ContentKeywordStr = Split(str18, "@xndsoft1314@xxx@")
For i = 0 To UBound(ContentKeywordStr)
If ContentKeywordStr(i) <> "" Then
KeywordStr = Split(ContentKeywordStr(i), "$ms$ndsoft1314$")
'Else
' KeywordStr(0) = "delete"
' KeywordStr(1) = "delete"
%>
<tr>
<td class="tablerow1"><input type=text name="KStr" size="45" value='<%=KeywordStr(0)%>'></td>
<td class="tablerow2"><input type=text name="KUrl" size="45" value='<%=KeywordStr(1)%>'></td>
</tr>
<%
End If
Next
Else
%>
<tr>
<td class="tablerow1"><input type=text name=KStr size=45 value='请输入新内容关键字'></td>
<td class="tablerow2"><input type=text name=KUrl size=45 value='请输入新关键字连接URL'></td>
</tr>
<%
End If
%>
<tr>
<td class="tablerow1"><input type=text name=KStr size=45 value='请输入新内容关键字'></td>
<td class="tablerow2"><input type=text name=KUrl size=45 value='请输入新关键字连接URL'></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#F5F5F5" colspan="4"><input name="submit" type="submit" value="修 改" /></td>
</tr>
</table>
</td>
</tr>
</table>
<input type="hidden" name="sys_content_type" value="<%=request("sys_content_type")%>"/>
<input type="hidden" name="id" value="<%=request("id")%>"/>
</form>
<form name="remoteuploadb" id="remoteuploadb" action="../D_remoteupload.asp" method="post" target="remoteupload">
<input type="hidden" name="content_UploadText" value=""/>
</form>
<iframe name="remoteupload" width="0" height="0"></iframe>
</div>
<script language=javascript>
AJAXfade(1,'l_list')
</script>
<%
AJAXcloseLoader()
%>